home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / UTILITY / TASEXAM6.ARJ / BIG-CHNG.TAS < prev    next >
Text File  |  1991-10-05  |  3KB  |  97 lines
  1. { BIG-CHNG.TAS    JEC     03 JULY 1991           }
  2. { Last rev.:     August 21, 1991       10:35 PM                }
  3. {}
  4. {
  5.   This script provides a fast way to check your watch list for any stocks
  6.   that have had more than $1.50 change in value since previous day.  It 
  7.   also alerts you to stocks which have split, since their 'adjusted' 
  8.   value will look like a BIG down change!
  9.  
  10.   Most of the indexes have been skipped, since they will often be large
  11.   changes.  If you want to monitor them also, simply delete the
  12.       if TICKER =
  13.   line from the next section.
  14.  
  15.   This scrpt was written by:  Jim Cooper, P.O.Box 73, Paramus, NJ 07653.
  16.                                 Prodigy ID:  NSWF53C
  17. }
  18. #MAX_QUOTES 10
  19. #OUTPUT_FILE 'E:\TAS\REPORTS\BIG-CHNG.LST'
  20. if TICKER = 'AMEX'  then return;
  21. if TICKER = 'DJ-65' then return;
  22. if TICKER = 'NSDQ' then return;
  23. if TICKER = 'OEX' then return;
  24. if TICKER = 'DJIA' then return;
  25. if TICKER = 'DJTA' then return;
  26. if TICKER = 'SP-500' then return;
  27. if TICKER = 'NYSE' then return;
  28. if TICKER = 'NYAD'  then return;
  29. if TICKER = 'NYDE'  then return;
  30. if TICKER = 'NYUC'  then return;
  31. if TICKER = 'UVDV'  then return;
  32. if TICKER = 'HI-LO' then return;
  33. if first_ticker THEN
  34.     begin
  35.     linez = 99;
  36.     pagez = 1;
  37.     gosub header;
  38.     end;
  39. if QUOTE_COUNT < 2 then return;
  40. {}
  41. level = 1;
  42. {}
  43. :start
  44. {}
  45. BC =    'BIG CHANGE:    ';
  46. {}
  47. {
  48. General conditions
  49. }
  50. PRCHNG = (C - C[-1]);                   {Change in price since yestday}
  51. PCTPRC = (PRCHNG * 100)/(C[-1])         { % change in price since ystdy}
  52. {}
  53. VOLCHNG = int(100*(V - V[-1])/V[-1]);  {Change in volume since yestday}
  54. {}
  55. :header
  56. if linez >= 47 then
  57.   begin
  58. {   write('\nRecommendation ');
  59.     writeln('Ticker     %K    CCI(6)   PDI(9)  MDI(9)  ADX(9)   PRICE');
  60. }
  61.     write(dates[0],'       Page',int(pagez));
  62.     writeln('                 E:\\TAS\\REPORTS\\BIG-CHNG.LST');
  63.     write('----------------------------------------');
  64.     writeln('-------------------------------');
  65.     linez = 5;
  66.     pagez = pagez + 1;
  67.   end;
  68. if first_ticker
  69.   THEN begin
  70.     linez = 13;
  71.     return;
  72.     end;
  73. {}
  74. IF (PRCHNG > 1.5) OR (PRCHNG < -1.5)
  75.     THEN begin
  76.           pt = pt + 1;
  77. {   write(BC);}
  78.     writeln
  79. (Ticker,'-  Large price change of $',PRCHNG,'     ',PCTPRC,' percent.');
  80.     linez = (linez + 1);
  81.     end;
  82. :writedata
  83.     if pt = 0 then return;
  84.     else
  85.     begin
  86. {   writeln
  87. ('\n               %K    CCI(6)   PDI(9)  MDI(9)  ADX(9) PRICE');
  88.     writeln('  ',ticker,K,' ',CCI6,PDI9,MDI9,ADXX,C);
  89.     writeln('                     RSI(9)=',RSI9,'  Price Change=',PRCHNG);
  90. }
  91. writeln
  92. ('--------------------------------------------------------------------');
  93.     linez = (linez + 1);
  94.    pt = 0;
  95.     end;
  96.     return;
  97.